Tarea 2

Carga de Paquetes

library(dplyr)
library(ggplot2)
library(plotly)
library(DT)
library(lubridate)
library(readxl)

Datos

delitos_oij <-
  readxl::read_excel("C:/Users/corti/OneDrive/Documents/OIJ/estadisticaspoliciales2021.xls")

delitos_oij$Fecha <- as.Date(delitos_oij$Fecha, format("%Y/%m/%d"))

## Warning in as.POSIXlt.POSIXct(x, tz = tz): unknown timezone '%Y/%m/%d'

Tabla

## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html

Graficos

Cantidad de delitos por tipo de delito

## # A tibble: 6 × 2
##   Delito                n
##   <chr>             <int>
## 1 ASALTO             9897
## 2 HOMICIDIO           537
## 3 HURTO             12162
## 4 ROBO               9812
## 5 ROBO DE VEHICULO   3099
## 6 TACHA DE VEHICULO  2842

Cantidad de delitos por mes

meses_delitos <- delitos_oij %>% mutate(Meses  = lubridate::month(Fecha))

Cantidad de delitos por canton

Proporción de delitos por genero